From 4d94db277eb93d01552b773c5652ac43f7b155c5 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Fri, 13 Dec 2002 22:41:40 +0000 Subject: [PATCH] (current-language-environment): Set type according to `language-info-alist' also here. --- lisp/international/mule-cmds.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 508be261b1d..2ee7c484bea 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1505,8 +1505,14 @@ to using the function `set-language-environment'." current-language-environment) language-info-alist)) "English")) - ;; a better custom type will be set with `set-language-info'. - :type 'string + ;; custom type will be updated with `set-language-info'. + :type (if language-info-alist + (cons 'choice (mapcar + (lambda (lang) + (list 'const (car lang))) + (sort (copy-sequence language-info-alist) + (lambda (x y) (string< (car x) (car y)))))) + 'string) :initialize 'custom-initialize-default :group 'mule) -- 2.30.2